Object

QTEffectSequence Class

Builds a QuickTime movie from two pictures and a QuickTime effect. Use QTEffectSequence as a constructor to create a QTEffectSequence object.

Properties

Frame

Image

Notes

result = New QTEffectSequence(effect,image1,image2,frames)

Part

Type

Description

result

QTEffectSequence

QTEffectSequence object, created from the values of the passed parameters.

effect

QTEffect

QT effect used in creating the sequence.

image1

Picture

Initial image in sequence.

image2

Picture

Final image in sequence.

frames

Integer

Number of frames in the sequence.



Use GetQTSMPTEEffect or GetQTCrossFadeEffect to obtain the value of effect.


Example

This example creates a QuickTime movie from two pictures, p1 and p2, using the cross-fade effect.

Dim sequence as QTEffectSequence
Dim theEffect as QTEffect
theEffect= GetQTCrossFadeEffect
sequence= New QTEffectSequence (theEffect,p1,p2,96)

This example creates a QuickTime movie from two pictures that are displayed in ImageWells, ImageWell1 and ImageWell2. The movie demonstrates either a cross-fade effect (as in the first example) or a user-selected SMPTE effect. All of the SMPTE effects are listed in a ListBox named EffectsList. To select an SMPTE effect, the user selects RadioButton2 and clicks on the desired SMPTE effect displayed in EffectsList.

This code is in the Action event of a PushButton. The user clicks it after choosing either the cross-fade effect or a particular SMPTE effect.

Dim sequence asQTEffectSequence
Dim i,effectID as Integer
Dim theEffect as QTEffect
Dim track as QTVideoTrack
Dim m as EditableMovie
Dim f as FolderItem
f= GetFolderItem("Movie")
m=f.CreateMovie
if Radiobutton1.value then
 theEffect= GetQTCrossFadeEffect
else
 theEffect= GetQTSMPTEEffect( Val(EffectsList.Cell(EffectsList.ListIndex,1)))
End if
sequence= New QTEffectSequence(theEffect,ImageWell1.Image, _
           ImageWell2.Image,96)
track=m.NewVideoTrack(ImageWell1.Image.width, ImageWell1.Image.height, 32)
  
For i=1 to 96
 sequence.frame=i
 track.appendpicture sequence.image
 progressBar1.value=i
Next
f.launch

See Also

EditableMovie, QTEffect, QTEffectSequence, QTTrack classes; GetQTCrossFadeEffect, GetQTSMPTEEffect functions; MoviePlayer control.